# name : furrr::future_map on group/split/nested
# key : group.future_map@furrr
# contributor: Shuguang Sun
# --
${1:dtout} <- ${2:dtin} |>
  tidyr::nest(data = -${3:var}) |>
  dplyr::mutate(
    furrr::future_map(
    data,
    ~ ${4:lm(y ~ x, data = .x)}
    )
  )